home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-11_1986_Verlag_Heinz_Weise_de.d64 / midi demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  72 lines
  1. 5 :sys4224
  2. 10 goto1000
  3. 20 printchr$(8)chr$(14)chr$(144)chr$(147)
  4. 30 poke53280,8:poke53281,8
  5. 40 print"       [205] [201] [196] [201] - [205] o n i t o r"
  6. 50 print"       ======================="
  7. 60 print:print"[196]ieses [208]rogramm dient zur [213]eberpruefung"
  8. 70 print"des [205][201][196][201]-[201]nterface auf der [195]64-[215]andler-"
  9. 80 print"karte."
  10. 90 print"[215]enn alles in [207]rdnung ist, werden alle"
  11. 100 print"empfangenen [196]aten in der [198]orm"
  12. 110 print:print"[211]tatus  [196]atenbyte1  [196]atenbyte2..."
  13. 120 print:print"als [200]ex-[218]ahlen angezeigt. [204]ediglich die"
  14. 130 print"'[211]ystem-[210]ealtime'-[211]tatusbytes bekommen"
  15. 140 print"keine eigene [218]eile."
  16. 150 print:print"[196]as [208]rogramm kann jederzeit mit [210][197][212][213][210][206]"
  17. 160 print"abgebrochen werden."
  18. 170 print"       >>>[215]eiter mit [212]aste<<<";
  19. 180 poke198,0:wait198,1:geta$
  20. 200 print"[147][211][212]  [196]1  [196]2  [196]3  [196]4  [196]5  [196]6  [196]7  [196]8[146]";
  21. 210 sys49152
  22. 220 geta$:ifa$=chr$(13)then1000
  23. 230 goto200
  24. 500 printchr$(8)chr$(14)chr$(144)chr$(147)
  25. 510 poke53280,8:poke53281,8
  26. 520 print"       [205] [201] [196] [201] - [203] e y b o a r d"
  27. 530 print"       ========================="
  28. 540 print:print"[211]ie koennen jetzt die [212]astatur [201]hres"
  29. 550 print"[210]echners als monophones [205][201][196][201]-'[205]aster'-"
  30. 560 print"[203]eyboard benutzen."
  31. 570 print""
  32. 580 print"ctrl[146]  [221]  [146]  [146] [221]  [146]  [146]  [146] [221]";
  33. 590 print"  [146]  [146] [221]  [146]  [146]  [146]"
  34. 600 print"      [221]  [146]  [146] [221]  [146]  [146]  [146] [221]";
  35. 610 print"  [146]  [146] [221]  [146]  [146] c[146]"
  36. 620 print"pitch [221] 2[146] 3[146] [221] 5[146] 6[146] 7[146] [221]";
  37. 630 print" 9[146] 0[146] [221] -[146] \[146] h[146]"
  38. 640 print"      [221]q[221]w[221]e[221]r[221]t[221]y[221]u[221]i[221]o[221]p[221]@[221]*[221]^[221]"
  39. 650 print"shift[146] [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  40. 660 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  41. 670 print:print"[193]uf welchen [203]anal ist [201]hr [211]ynthesizer"
  42. 680 print"eingestellt? 1  (+/-/[210][197][212][213][210][206])[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  43. 685 ch=1
  44. 690 poke204,0
  45. 700 poke198,0:wait198,1:geta$
  46. 705 ifpeek(207)then705
  47. 710 poke204,1
  48. 720 ifa$=chr$(13)then780
  49. 730 ifa$="+"thench=ch+1:ifch>16thench=1
  50. 740 ifa$="-"thench=ch-1:ifch<1thench=16
  51. 750 print"[157]"ch"[157] ";
  52. 760 print"[157][157]";:ifch>9thenprint"[157]";
  53. 770 goto690
  54. 780 print:print"[197]nde mit [210][197][212][213][210][206]"
  55. 790 poke780,ch-1:sys49155
  56. 1000 printchr$(8)chr$(14)chr$(144)chr$(147)
  57. 1010 poke53280,8:poke53281,8
  58. 1020 print"          [205] [201] [196] [201] - [196] e m o"
  59. 1030 print"          ================="
  60. 1040 print:print"[205]it diesen zwei [208]rogrammen koennen [211]ie"
  61. 1050 print"[201]hre [205][201][196][201]-[211]chnittstelle ausprobieren:"
  62. 1060 print:print:print"1.) [196]er [205][201][196][201]-[205]onitor zum [212]esten des"
  63. 1070 print"    [205][201][196][201]-[197]ingangs."
  64. 1080 print:print"2.) [196]as [205][201][196][201]-[203]eyboard fuer den [205][201][196][201]-"
  65. 1090 print"    [193]usgang."
  66. 1100 print"        [211]ie wuenschen bitte ?"
  67. 1110 print:print"       ([196]ruecken [211]ie 1[146] oder 2[146])"
  68. 1120 poke198,0:wait198,1:geta$
  69. 1130 ifa$="1"then20
  70. 1140 ifa$="2"then500
  71. 1150 goto1120
  72.